﻿Imports CustomTshirtFinal

Public Class PedidoNuevo

    Property Pedidos As Pedidos


    Private Sub btnGuardar_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.Click

        Dim negocio As New PedidoNegocio
        Try
            If lblId.Text <> "" Then
                negocio.actualizar(lblId.Text, Me.txtFecha.Text, Me.txtEstado.Text, Me.txtTotal.Text)
            Else
                negocio.insertar(Me.txtIdUsuario.Text, Me.txtFecha.Text, Me.txtEstado.Text, Me.txtTotal.Text)
            End If
            Me.Pedidos.dgvPedidos.DataSource = ""


            MsgBox("El Pedido ha sido insertado exitosamente")

            Me.Close()

        Catch ex As Exception
            lblMensaje.Text = "Hubo un error al guardar"
        End Try
    End Sub

    
    Private Sub PedidoNuevo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If lblId.Text <> "" Then
            Dim negocio As New PedidoNegocio
            Dim modelo = negocio.obtener(lblId.Text)
            txtIdUsuario.Text = modelo.Usuario_idUsuario
            txtFecha.Text = modelo.fecha
            txtEstado.Text = modelo.estado
            txtTotal.Text = modelo.total
        End If
    End Sub
End Class